How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act2/00258.ls

Text File | 1995-03-28 | 736 b | 30 lines

on mouseDown
  global toplimit, bottomlimit, rightlimit, leftlimit, mysound, grabcur
  swapme2()
  cursor([grabcur, grabcur + 1])
  repeat while the mouseDown = 1
    set myh to the mouseH
    set myv to the mouseV
    if myh < leftlimit then
      set the locH of sprite 33 to leftlimit
    else
      if myh > rightlimit then
        set the locH of sprite 33 to rightlimit
      else
        set the locH of sprite 33 to myh
      end if
    end if
    if myv < toplimit then
      set the locV of sprite 33 to toplimit
    else
      if myv > bottomlimit then
        set the locV of sprite 33 to bottomlimit
      else
        set the locV of sprite 33 to myv
      end if
    end if
    updateStage()
  end repeat
  moveme2()
end